﻿Public Class xtf_ABMtelefono 

    Public obj_telefono As cls_telefono_ = Nothing
    Private col_ControlesValidar As List(Of Control)

    Public Sub New()
        InitializeComponent()
        CargarTipoTelefono_()
        Me.Text = "Telefono - Nuevo"
        obj_telefono = New cls_telefono_
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
    End Sub

    Private Sub CargarTipoTelefono_()
        Dim tipotelefono_ As New cls_tipotelefono_
        tipotelefono_.CargarTodos()
        cargarCombo(cbo_TipoTelefono, tipotelefono_.Items)
    End Sub

    Public Sub Modificar(ByRef telefono As cls_telefono_)
        If IsNothing(obj_telefono) Then
            obj_telefono = New cls_telefono_
        End If
        obj_telefono = telefono

        Me.Text = "Telefono - " & obj_telefono.ToString
        'txt_ID.Text = obj_localidad.idlocalidad
        cbo_TipoTelefono.EditValue = telefono.idtipotelefono

        txt_Numero.Text = obj_telefono.numero
        txt_Interno.Text = obj_telefono.interno

        obj_telefono.tipotelefono = Nothing

    End Sub


    Public Function ComprobarDatos() As Boolean
        'If cbo_TipoTelefono.Enabled = False Then
        '    ErrManagerShow("001017")
        '    Return False
        'End If
        If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
            ErrManagerShow("000004", Me)
            Return False
        End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_telefono.idtipotelefono = cbo_TipoTelefono.EditValue

            obj_telefono.numero = txt_Numero.Text
            obj_telefono.interno = txt_Interno.Text

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

End Class